home *** CD-ROM | disk | FTP | other *** search
/ AEMail 2.40 / AEMail v2.40.iso / arexx / html2.aem < prev    next >
Text File  |  1999-12-15  |  2KB  |  102 lines
  1. /* AEMail HTML display */
  2.  
  3. PARSE ARG file a
  4.  
  5. OPTIONS RESULTS
  6.  
  7. browlst = "IBROWSE2"'0A'X"IBROWSE1"'0A'X"AWEB3"
  8.  
  9. ADDRESS AEMAIL1 "getlistitem" '"'browlst'"' '"Select the browser you want"'
  10. browser = result
  11.  
  12. IF browser = "" THEN EXIT
  13.  
  14.  
  15. IF ~ SHOW('L', "rexxsupport.library") THEN DO
  16.     IF ~ ADDLIB('rexxsupport.library', 0, -30, 0) THEN
  17.         DO
  18.         ADDRESS AEMAIL1 okay1 "ARexx support library not available, exiting"
  19.         EXIT
  20.         END
  21.     END
  22.  
  23. IF (file = "") THEN DO
  24.     ADDRESS AEMAIL1 GETVAR
  25.     file = result
  26.     IF (SUBSTR(file, 1, 5) ~= 'http:') THEN DO
  27.         ADDRESS AEMAIL1 okay1 "Variable not web address"'0A'X"Found :" file
  28.         EXIT
  29.         END
  30.     END
  31.  
  32. wwwprog = ""
  33. wwwport = ""
  34.  
  35. IF browser = "IBROWSE2" THEN
  36.     DO
  37.     wwwdir = "IBROWSE2:"
  38.     wwwprog = "IBROWSE2:Ibrowse"
  39.     wwwport = "IBROWSE"
  40.     END
  41. ELSE IF browser = "IBROWSE1" THEN
  42.     DO
  43.     wwwdir = "IBROWSE1:"
  44.     wwwprog = "IBROWSE1:Ibrowse"
  45.     wwwport = "IBROWSE"
  46.     END
  47. ELSE IF browser = "AWEB3" THEN
  48.     DO
  49.     wwwdir = "AWEB3:"
  50.     wwwprog = "AWeb3:Aweb-II"
  51.     wwwport = "AWEB."
  52.     END
  53. ELSE
  54.     DO
  55.     ADDRESS AEMAIL1 OKAY1 "Invalid Browser: "browser
  56.     EXIT
  57.     END
  58.  
  59. IF (wwwport = "AWEB.") THEN
  60.     DO
  61.     ports = SHOW('P')
  62.     PARSE VAR ports dummy "AWEB." portnr .
  63.     IF (portnr = "") THEN portnr = "1"
  64.     wwwport = wwwport || portnr
  65.     END
  66.  
  67. IF ~ SHOW('P', wwwport) THEN
  68.     DO
  69.     ADDRESS COMMAND "Run >NIL: "||wwwprog
  70.     ADDRESS COMMAND "WaitForPort "||wwwport
  71.     IF ~ SHOW("P", wwwport) THEN
  72.         DO
  73.         ADDRESS COMMAND "Run >NIL: sys:utilities/multiview" file
  74.         EXIT
  75.         END
  76.     END
  77.  
  78. olddir = PRAGMA('D', wwwdir)
  79. newdir = PRAGMA('D',"")
  80.  
  81. file2 = STRIP(file,'B','"')
  82.  
  83. IF (file2 == 'T:AMtemp') THEN DO
  84.     ADDRESS COMMAND "DELETE >NIL: t:amtemp.html"
  85.     ADDRESS COMMAND "RENAME >NIL: T:Amtemp t:amtemp.html"
  86.     file = "file://localhost/t:amtemp.html"
  87.     END
  88.  
  89. ADDRESS VALUE wwwport
  90.  
  91. IF (wwwport = "IBROWSE") THEN DO
  92.     "INFO SCREEN"
  93.     ADDRESS AEMAIL1 SCREENTOFRONT result
  94.     "GOTOURL" file
  95.     END
  96. ELSE DO
  97.     "SCREENTOFRONT"
  98.     "OPEN" file
  99.     END
  100.  
  101. if (RC ~= 0) then ADDRESS AEMAIL1 okay1 "Your browser returned RC "RC
  102.